program ProjCRWEB001;

uses
  Forms,
  UPrincipal in 'UPrincipal.pas' {FormPrincipalCRWEB},
  USplash in 'CLASSES\USplash.pas' {FrmSplash},
  UDMFAT in 'DATABASE\UDMFAT.pas' {DMFAT: TDataModule},
  UUtils in 'CLASSES\UUtils.pas',
  ULogin in 'CLASSES\ULogin.pas';

{$R *.res}

begin
  Application.Initialize;

  FrmSplash := TFrmSplash.Create(Application);
  FrmSplash.lblMensagem.Caption := 'Carregando o Sistema, aguarde.....';
  FrmSplash.Show;
  FrmSplash.Update;

  Application.ProcessMessages;
  Application.Title := 'CRWeb Cobrança Educacional';

  Application.CreateForm(TDMFAT, DMFAT);
  FrmSplash.Hide;
  FrmSplash.Free;
  
  Application.CreateForm(TFormPrincipalCRWEB, FormPrincipalCRWEB);
  //Application.CreateForm(TDMFAT, DMFAT);
  Application.Run;
end.
